home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / noluxe list (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.4 KB  |  65 lines
  1. 0 rem auto listing
  2. 1 poke55,41:poke56,152:run2
  3. 2 sys57812"no3",8,1:poke780,0:sys65493
  4. 3 poke53280,0:poke53281,0:poke646,5:printchr$(147)chr$(142)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  5. 4 print" noluxe auto listing  [146]":print" flossoftware (c)1987 [146]"
  6. 5 input"filename screen ";fi$:input"filename colour (q)";f$
  7. 6 sys57812fi$,8,1:poke780,0:sys65493:sys49400,38955,1023,1000
  8. 7 iff$<>"q"thensys57812f$,8,1:poke780,0:sys65493
  9. 8 sys49400,39957,55295,1001:ba=38956:ea=39956:rn=1001:ro=0:rf=0:kk=0:sk=0
  10. 9 getkl$:ifkl$<>"[133]"andkl$<>"[134]"andkl$<>"[136]"then9
  11. 10 ifkl$="[133]"thenkk=kk+1:ifkk>15thenkk=0
  12. 11 ifkl$="[134]"thensk=sk+1:ifsk>15thensk=0
  13. 12 poke53280,kk:poke824,kk:poke53281,sk:poke825,sk:ifkl$<>"[136]"then9
  14. 13 poke53280,0:poke53281,0:poke820,0:poke821,0:poke822,0:printchr$(144)
  15. 14 print"[147]55data";ba;"[157],";ea;"[157],";rn;"[157],";peek(820);"[157],";peek(821);"[157],";peek(822)
  16. 15 print"run17";
  17. 16 poke632,13:poke633,13:poke634,13:poke198,3:end
  18. 17 readba,ea,rn,ro,rf,kl
  19. 18 print"[147]";rn;"[144]?";chr$(34)
  20. 19 poke53280,2:forx=0to9:gosub32
  21. 20 ifpeek(ba+x)>127thenrf=0:goto23
  22. 21 ro=0:ifrf=0thenrf=1:poke1112+pl,210:pl=pl+1:poke1112+pl,peek(ba+x):pl=pl+1:goto25
  23. 22 ifrf=1thenpoke1112+pl,peek(ba+x):pl=pl+1:goto25
  24. 23 ifro=0thenro=1:poke1112+pl,146:pl=pl+1:poke1112+pl,peek(ba+x)-128:pl=pl+1:goto25
  25. 24 ifro=1thenpoke1112+pl,peek(ba+x)-128:pl=pl+1
  26. 25 poke53280,5:nextx
  27. 26 poke1112+pl,34:pl=pl+1:poke1112+pl,59:poke820,ro:poke821,rf:poke822,kl
  28. 27 ifba+x>ea-1thenpoke1112+pl-2,147:poke1112+pl-1,34:poke1112+pl,32:print"r[213]49";:poke198,7:goto29
  29. 28 print"[157] ":print"run30";:poke198,7
  30. 29 poke632,19:poke633,13:poke634,13:poke635,13:poke636,13:poke637,13:poke638,13:end
  31. 30 readba,ea,rn,ro,rf,kl:ba=ba+10:rn=rn+1
  32. 31 goto14
  33. 32 lk=kl:kl=peek(ba+x+1002)and15:ifkl=lkthenreturn
  34. 33 ifkl=0thenpoke1112+pl,207:pl=pl+1:return
  35. 34 ifkl=1thenpoke1112+pl,133:pl=pl+1:return
  36. 35 ifkl=2thenpoke1112+pl,156:pl=pl+1:return
  37. 36 ifkl=3thenpoke1112+pl,223:pl=pl+1:return
  38. 37 ifkl=4thenpoke1112+pl,220:pl=pl+1:return
  39. 38 ifkl=5thenpoke1112+pl,158:pl=pl+1:return
  40. 39 ifkl=6thenpoke1112+pl,159:pl=pl+1:return
  41. 40 ifkl=7thenpoke1112+pl,222:pl=pl+1:return
  42. 41 ifkl=8thenpoke1112+pl,193:pl=pl+1:return
  43. 42 ifkl=9thenpoke1112+pl,213:pl=pl+1:return
  44. 43 ifkl=10thenpoke1112+pl,214:pl=pl+1:return
  45. 44 ifkl=11thenpoke1112+pl,215:pl=pl+1:return
  46. 45 ifkl=12thenpoke1112+pl,216:pl=pl+1:return
  47. 46 ifkl=13thenpoke1112+pl,217:pl=pl+1:return
  48. 47 ifkl=14thenpoke1112+pl,218:pl=pl+1:return
  49. 48 ifkl=15thenpoke1112+pl,219:pl=pl+1:return
  50. 49 print"[147]1000 ?";chr$(34);"[147]";chr$(34)chr$(59);
  51. 50 print":poke53280,";mid$(str$(peek(824)and15),2);
  52. 51 print":poke53281,";mid$(str$(peek(825)and15),2)
  53. 52 print"1101 poke2023,";mid$(str$(peek(39955)),2);
  54. 53 print":poke56295,";mid$(str$(peek(40956)and15),2)
  55. 54 print"1102 poke198,0:wait198,1":print"r=1:t=0:goto57";
  56. 56 poke632,13:poke633,13:poke634,13:poke635,13:poke636,13:poke198,5:end
  57. 57 print"[144][147]":r=r+t:fori=rtor+6step1:poke198,10:poke631,19:printi:nexti
  58. 58 forj=632to640:pokej,13:nextj:print"t=";i;":ift<61then57
  59. 59 [151]53280,t:[153]"list:":[128]
  60. 60 [143] ludo decock
  61. 61 [143] lindenstraat 26
  62. 62 [143] 8840 gits
  63. 63 [143] belgium
  64. 64 [143] do not type in line 0, 60, 61, 62, 63, 64
  65.